unit Ausgabe;

{*****************************************************************************}

{$IFNDEF Server}

interface

uses
  SysUtils,
  {$IFDEF MSWINDOWS}
  Windows, WinProcs,
  {$ENDIF}
  Messages, Classes,
  {$IFDEF MSWINDOWS}
  Graphics, Controls, Forms,
  {$ELSE}
  QGraphics, QControls, QForms,
  {$ENDIF}
  Dialogs, StdCtrls, Buttons, Printers, DdeMan, Menus, HTTPApp,
  XPMan;

type
  TAusgabeFenster = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    PopupMenu1: TPopupMenu;
    Tabelle1: TMenuItem;
    Bestenliste1: TMenuItem;
    Doppelbestenliste1: TMenuItem;
    AlleSpieler1: TMenuItem;
    N1: TMenuItem;
    Lschen1: TMenuItem;
    Drucken1: TMenuItem;
    Clipboard1: TMenuItem;
    N2: TMenuItem;
    Optionen1: TMenuItem;
    Spielergebnisse1: TMenuItem;
    JedergegenjedenSchema1: TMenuItem;
    Mannschaftsergebnisse1: TMenuItem;
    FestgespielteSpieler: TMenuItem;
    KompletterBericht1: TMenuItem;
    Terminplan1: TMenuItem;
    XPManifest1: TXPManifest;
    Ersatzspieler1: TMenuItem;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Tabelle1Click(Sender: TObject);
    procedure Bestenliste1Click(Sender: TObject);
    procedure Doppelbestenliste1Click(Sender: TObject);
    procedure AlleSpieler1Click(Sender: TObject);
    procedure Lschen1Click(Sender: TObject);
    procedure Clipboard1Click(Sender: TObject);
    procedure Drucken1Click(Sender: TObject);
    procedure Optionen1Click(Sender: TObject);
    procedure Spielergebnisse1Click(Sender: TObject);
    procedure JedergegenjedenSchema1Click(Sender: TObject);
    procedure Mannschaftsergebnisse1Click(Sender: TObject);
    procedure FestgespielteSpielerClick(Sender: TObject);
    procedure KompletterBericht1Click(Sender: TObject);
    procedure Terminplan1Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormResize(Sender: TObject);
    procedure Ersatzspieler1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  AusgabeFenster: TAusgabeFenster;

implementation

Uses SDIMain, Options, Output;

{$R *.DFM}

procedure TAusgabeFenster.BitBtn3Click(Sender: TObject);
Var T, YPos : Integer;
begin
 Printer.Canvas.Font.Name := 'Courier New';
 Printer.Canvas.Font.Size := 11;
 YPos := 0;
 Printer.BeginDoc;
 For T := 0 to Memo1.Lines.Count-1 do
  Begin
   If YPos - Printer.Canvas.Font.Height > Printer.PageHeight then
    Begin
     Printer.NewPage;
     YPos := 0;
    End;
   Printer.Canvas.Textout(150,YPos,Memo1.Lines.Strings[T]);
   YPos := YPos - Printer.Canvas.Font.Height;
  End;
 Printer.EndDoc;
end;

procedure TAusgabeFenster.FormCreate(Sender: TObject);
begin
 Memo1.Lines.Clear;
 Memo1.Font.Name := 'Courier New';
 Memo1.Font.Size := 9;
end;

procedure TAusgabeFenster.BitBtn4Click(Sender: TObject);
begin
 LeereVorlagenCache;
 Hide;
end;

procedure TAusgabeFenster.BitBtn5Click(Sender: TObject);
begin
 Memo1.Lines.Clear;
end;

procedure TAusgabeFenster.BitBtn1Click(Sender: TObject);
begin
 {Text in Clipboard schieben}
 Memo1.SelectAll;
 Memo1.CopyToClipboard;
 MessageDlg('Der Text wurde in die Zwischenablage kopiert.',
  mtInformation,[mbOK],0);
end;

procedure TAusgabeFenster.Tabelle1Click(Sender: TObject);
begin
 SDIAppForm.Tabelle1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Bestenliste1Click(Sender: TObject);
begin
  SDIAppForm.Bestenliste1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Doppelbestenliste1Click(Sender: TObject);
begin
 SDIAppForm.DoppelBestenliste1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.AlleSpieler1Click(Sender: TObject);
begin
  SDIAppForm.Einzelbilanzen1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Lschen1Click(Sender: TObject);
begin
 BitBtn5Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Clipboard1Click(Sender: TObject);
begin
 BitBtn1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Drucken1Click(Sender: TObject);
begin
 BitBtn3Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Optionen1Click(Sender: TObject);
begin
 AuswertungsOpt.ShowModal;
end;

procedure TAusgabeFenster.Spielergebnisse1Click(Sender: TObject);
begin
 SDIAppForm.Spielergebnisse1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.JedergegenjedenSchema1Click(Sender: TObject);
begin
 SDIAppForm.JedergegenjedenSchema1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Mannschaftsergebnisse1Click(Sender: TObject);
begin
 SDIAppForm.Mannschaftsergebnisse1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.FestgespielteSpielerClick(Sender: TObject);
begin
 SDIAppForm.FestgespielteSpielerClick(AusgabeFenster);
end;

procedure TAusgabeFenster.KompletterBericht1Click(Sender: TObject);
begin
 SDIAppForm.KompletterBericht1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.Terminplan1Click(Sender: TObject);
begin
 SDIAppForm.Terminplan1Click(AusgabeFenster);
end;

procedure TAusgabeFenster.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 Resize := True;
 If (NewWidth < 800) then NewWidth := 800;
 If (NewHeight < 570) then NewHeight := 570;
end;

procedure TAusgabeFenster.FormResize(Sender: TObject);
Var ButtonPos : Integer;
begin
 ButtonPos := ClientHeight - 5 - BitBtn1.Height;
 BitBtn1.Top := ButtonPos;
 BitBtn3.Top := ButtonPos;
 BitBtn4.Top := ButtonPos;
 BitBtn5.Top := ButtonPos;
 Memo1.Height := ButtonPos - Memo1.Top - 6;
 Memo1.Width := ClientWidth - 2*Memo1.Left;
end;

procedure TAusgabeFenster.Ersatzspieler1Click(Sender: TObject);
begin
 SDIAppForm.Ersatzspieler1Click( Sender );
end;

end.

{$ELSE}

Interface
Implementation
End.
{$ENDIF}
